home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #002 (19xx)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #002 (19xx)(Amiga User Group Deutschland e.V.).adf
/
HP-10C
/
gadgets.def
< prev
next >
Wrap
Text File
|
1988-02-24
|
767b
|
38 lines
DEFINITION MODULE CalcGadgets;
(*
Create gadgets for calculator.
Created: Duncan Prindle, September 1, 1986
Modified: Perhaps
*)
FROM CalcFunctions IMPORT ErrorType;
FROM Intuition IMPORT GadgetPtr, BorderPtr, WindowPtr;
TYPE
ErrorFunction = PROCEDURE () : ErrorType;
CalcButtonPtr = POINTER TO CalcButton;
CalcButton = RECORD
CalcKey : ErrorFunction;
END;
PROCEDURE InitBorder ( VAR b : ARRAY OF BorderPtr );
PROCEDURE InitGadgets( VAR g : ARRAY OF GadgetPtr;
VAR b : ARRAY OF BorderPtr );
PROCEDURE DEG (): ErrorType;
PROCEDURE STO (): ErrorType;
PROCEDURE RCL (): ErrorType;
PROCEDURE GOLD (): ErrorType;
PROCEDURE InitWindow ( VAR wp : WindowPtr; g : GadgetPtr);
END CalcGadgets.